#!/usr/bin/perl -w
use strict;
use POSIX qw(strftime);


my $ltime = localtime();
my $gmtime = gmtime();
my $time =  time();

print $ltime."\n";
print $gmtime."\n";
print $time."\n";

print localtime($time)."\n";


my $date = strftime "%Y-%m-%d %H:%M:%S", localtime($time);

print $date."\n";
